Explore NEAT results

results %>%
  glimpse

## Observations: 400
## Variables: 4
## $ X  <int> 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,…
## $ X0 <dbl> 0.35610703, 0.13219421, 0.07984828, 0.91039251, 0.57249880, 0…
## $ X1 <dbl> 0.10662935, 0.31628278, 0.70515117, 0.36002146, 0.49423963, 0…
## $ X2 <dbl> 1.0000000000, 0.0011362904, 0.0814757967, 1.0000000000, 0.000…

results %>%
  ggplot(aes(X0, X1, color = X2)) +
  geom_point()

results_simple_first %>% 
  ggplot(aes(X0, X1, color = X2)) +
  geom_point()

read.csv('./../xor/results.csv') %>%
  ggplot(aes(X0, X1, color = X2)) +
  geom_point()

for (run in 0:9){
  print(read.csv(paste('./../xor-basic-multiruns/results-run-', run, '.csv', sep='')) %>%
    ggplot(aes(X0, X1, color = X2)) +
    geom_point())
    
}

print(read.csv(paste('./../xor-retrain/results-run-', 0, '.csv', sep='')) %>%
    ggplot(aes(X0, X1, color = X2)) +
    geom_point())

print(read.csv(paste('./../xor-retrain/results-run-', 1, '.csv', sep='')) %>%
    ggplot(aes(X0, X1, color = X2)) +
    geom_point())

for (run in 0:9){
  print(read.csv(paste('./../xor-retrain/results-run-', run, '.csv', sep='')) %>%
    ggplot(aes(X0, X1, color = X2)) +
    geom_point())
    
}

f <- function(x) x^3
for (run in 0:9){
  print(read.csv(paste('./../polynomial_x3/results-run-', run, '.csv', sep='')) %>%
    ggplot(aes(X0, X1, color = X2)) +
    geom_point() + 
    stat_function(fun=f, colour="red"))
    
}

circleFun <- function(center = c(0,0),diameter = 1, npoints = 100){
    r = diameter / 2
    tt <- seq(0,2*pi,length.out = npoints)
    xx <- center[1] + r * cos(tt)
    yy <- center[2] + r * sin(tt)
    return(data.frame(x = xx, y = yy))
}
circleDat <- circleFun(diameter=0.8*2)
for (run in 0:9){
  df <- read.csv(paste('./../circle/results-run-', run, '.csv', sep=''))
  print(
    ggplot(aes(X0, X1, color = X2), data=df) +
    geom_point()  +
    geom_path(aes(x, y, color=0), data=circleDat) )
    
}

for (run in 0:2){
  print(read.csv(paste('./../xor-400pts/results-run-', run, '.csv', sep='')) %>%
    ggplot(aes(X0, X1, color = X2)) +
    geom_point() )
    
}